home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-2 / tests.sit / tests / stand / scan.out < prev    next >
Encoding:
Text File  |  1992-12-08  |  2.1 KB  |  134 lines  |  [TEXT/????]
  1.  ----> &null
  2. 2
  3. 2
  4. 1
  5. 1
  6. 4
  7. 4
  8. 3
  9. 3
  10. 2
  11. 2
  12. 1
  13. 1
  14. 4
  15. 4
  16. 3
  17. 3
  18. 1
  19. 1
  20. every write(("badc" | "edgf" | "x") ? write(upto(!&lcase))) ----> none
  21. 1
  22. 5
  23. 5
  24. every write((("aeiou" | "foobaz") ? upto('dracula')) ? =(1 to 10)) ----> none
  25. 1
  26. 2
  27. 3
  28. 4
  29. 5
  30. 6
  31. 7
  32. 8
  33. 9
  34. 1
  35. every write((1 to 10) ? move(1)) ----> none
  36. &subject := &pos ----> "1"
  37. &pos :=: &subject ----> 1
  38. &pos ----> 1
  39. &subject ----> "1"
  40. +1 ----> 1
  41. -1 ----> -1
  42. ?10 ----> 3
  43. ?10 ----> 5
  44. ?10 ----> 4
  45. ~&cset ----> ''
  46. ~&ascii ----> '\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8a\x8b\x8c\x8d\x8e\x8f\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9a\x9b\x9c\x9d\x9e\x9f\xa0\xa1\xa2\xa3\xa4\xa5\xa6\xa7\xa8\xa9\xaa\xab\xac\xad\xae\xaf\xb0\xb1\xb2\xb3\xb4\xb5\xb6\xb7\xb8\xb9\xba\xbb\xbc\xbd\xbe\xbf\xc0\xc1\xc2\xc3\xc4\xc5\xc6\xc7\xc8\xc9\xca\xcb\xcc\xcd\xce\xcf\xd0\xd1\xd2\xd3\xd4\xd5\xd6\xd7\xd8\xd9\xda\xdb\xdc\xdd\xde\xdf\xe0\xe1\xe2\xe3\xe4\xe5\xe6\xe7\xe8\xe9\xea\xeb\xec\xed\xee\xef\xf0\xf1\xf2\xf3\xf4\xf5\xf6\xf7\xf8\xf9\xfa\xfb\xfc\xfd\xfe\xff'
  47. &subject := string(&lcase) ----> "abcdefghijklmnopqrstuvwxyz"
  48. ="a" ----> "a"
  49. ="b" ----> "b"
  50. ="d" ----> none
  51. &subject := string(&lcase) ----> "abcdefghijklmnopqrstuvwxyz"
  52. a
  53. b
  54. c
  55. d
  56. e
  57. f
  58. g
  59. h
  60. i
  61. j
  62. k
  63. l
  64. m
  65. n
  66. o
  67. p
  68. q
  69. r
  70. s
  71. t
  72. u
  73. v
  74. w
  75. x
  76. y
  77. z
  78. while write(move(1)) ----> none
  79. &subject := string(&lcase) ----> "abcdefghijklmnopqrstuvwxyz"
  80.  
  81. a
  82. ab
  83. abc
  84. abcd
  85. abcde
  86. abcdef
  87. abcdefg
  88. abcdefgh
  89. abcdefghi
  90. every write(tab(1 to 10)) ----> none
  91. pos(0) ----> none
  92. pos(15) ----> none
  93. &subject := string(&lcase) ----> "abcdefghijklmnopqrstuvwxyz"
  94. pos(1) ----> 1
  95.  
  96. a
  97. ab
  98. abc
  99. abcd
  100. abcde
  101. abcdef
  102. every write("abcdef" ? tab(1 to 10)) ----> none
  103. every write("abcde" ? while move(2) ? move(1)) ----> none
  104. s := "abcdef" ----> "abcdef"
  105. s ?:= move(3) ----> "abc"
  106. s := "abcdef" ----> "abcdef"
  107. 1
  108. 2
  109. 3
  110. 4
  111. 5
  112. 6
  113. every write(s ?:= upto(&lcase)) ----> none
  114. s := "this is the time to work it all out" ----> "this is the time to work it all out"
  115. this
  116. this is
  117. this is the
  118. this is the time
  119. this is the time to
  120. this is the time to work
  121. this is the time to work it
  122. this is the time to work it all
  123. every write(s ? tab(find(" "))) ----> none
  124. s := "xxxxxx" ----> "xxxxxx"
  125. x
  126. every s ? write(=("a" | "x")) ----> none
  127. f
  128. e
  129. d
  130. c
  131. b
  132. a
  133. "abcdef" ? (tab(0) & (while write(move(-1)))) ----> none
  134.